home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / setf.data < prev    next >
Text File  |  1986-09-10  |  10KB  |  224 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export '(lisp::setf lisp::psetf lisp::shiftf lisp::rotatef lisp::define-modify-macro lisp::defsetf lisp::getf lisp::remf lisp::incf lisp::decf lisp::push lisp::pushnew lisp::pop lisp::define-setf-method lisp::get-setf-method lisp::get-setf-method-multiple-value))
  7. #!
  8. (lisp::in-package 'lisp::system)
  9. lisp::progn
  10. system::putprop
  11. lisp::quote
  12. 'system::setf-update-fn
  13. lisp::remprop
  14. 'system::setf-lambda
  15. 'system::setf-method
  16. "A doc-string expected."
  17. "Extra arguments."
  18. 'system::setf-documentation
  19. 1
  20. "(store-variable) expected."
  21. 'system::setf-lambda
  22. 'system::setf-update-fn
  23. 'system::setf-method
  24. 'system::setf-documentation
  25. lisp::function
  26. lisp::lambda
  27. 'system::setf-method
  28. 'system::setf-lambda
  29. 'system::setf-update-fn
  30. 'system::setf-documentation
  31. "Multiple store-variables are not allowed."
  32. lisp::setq
  33. "Cannot get the setf-method of ~S."
  34. system::setf-method
  35. system::setf-update-fn
  36. system::setf-lambda
  37. "Cannot expand the SETF form ~S."
  38. lisp::car
  39. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca system::x system::y) system::y))
  40. system::setf-documentation
  41. lisp::cdr
  42. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd system::x system::y) system::y))
  43. lisp::caar
  44. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::car system::x) system::y) system::y))
  45. lisp::cdar
  46. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::car system::x) system::y) system::y))
  47. lisp::cadr
  48. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdr system::x) system::y) system::y))
  49. lisp::cddr
  50. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdr system::x) system::y) system::y))
  51. lisp::caaar
  52. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caar system::x) system::y) system::y))
  53. lisp::cdaar
  54. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caar system::x) system::y) system::y))
  55. lisp::cadar
  56. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdar system::x) system::y) system::y))
  57. lisp::cddar
  58. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdar system::x) system::y) system::y))
  59. lisp::caadr
  60. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cadr system::x) system::y) system::y))
  61. lisp::cdadr
  62. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cadr system::x) system::y) system::y))
  63. lisp::caddr
  64. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddr system::x) system::y) system::y))
  65. lisp::cdddr
  66. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cddr system::x) system::y) system::y))
  67. lisp::caaaar
  68. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caaar system::x) system::y) system::y))
  69. lisp::cdaaar
  70. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caaar system::x) system::y) system::y))
  71. lisp::cadaar
  72. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdaar system::x) system::y) system::y))
  73. lisp::cddaar
  74. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdaar system::x) system::y) system::y))
  75. lisp::caadar
  76. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cadar system::x) system::y) system::y))
  77. lisp::cdadar
  78. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cadar system::x) system::y) system::y))
  79. lisp::caddar
  80. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddar system::x) system::y) system::y))
  81. lisp::cdddar
  82. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cddar system::x) system::y) system::y))
  83. lisp::caaadr
  84. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caadr system::x) system::y) system::y))
  85. lisp::cdaadr
  86. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caadr system::x) system::y) system::y))
  87. lisp::cadadr
  88. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdadr system::x) system::y) system::y))
  89. lisp::cddadr
  90. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdadr system::x) system::y) system::y))
  91. lisp::caaddr
  92. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caddr system::x) system::y) system::y))
  93. lisp::cdaddr
  94. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caddr system::x) system::y) system::y))
  95. lisp::cadddr
  96. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdddr system::x) system::y) system::y))
  97. lisp::cddddr
  98. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdddr system::x) system::y) system::y))
  99. lisp::first
  100. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca system::x system::y) system::y))
  101. lisp::second
  102. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdr system::x) system::y) system::y))
  103. lisp::third
  104. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddr system::x) system::y) system::y))
  105. lisp::fourth
  106. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdddr system::x) system::y) system::y))
  107. lisp::fifth
  108. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddddr system::x) system::y) system::y))
  109. lisp::sixth
  110. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 5 system::x) system::y) system::y))
  111. lisp::seventh
  112. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 6 system::x) system::y) system::y))
  113. lisp::eighth
  114. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 7 system::x) system::y) system::y))
  115. lisp::ninth
  116. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 8 system::x) system::y) system::y))
  117. lisp::tenth
  118. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 9 system::x) system::y) system::y))
  119. lisp::rest
  120. ((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd system::x system::y) system::y))
  121. lisp::svref
  122. system::svset
  123. lisp::elt
  124. system::elt-set
  125. lisp::symbol-value
  126. lisp::set
  127. lisp::symbol-function
  128. system::fset
  129. lisp::macro-function
  130. ((system::s) (system::v) (lisp::list 'lisp::progn (lisp::list 'system::fset system::s (lisp::list 'lisp::cons ''lisp::macro system::v)) system::v))
  131. lisp::aref
  132. system::aset
  133. lisp::get
  134. ((system::s system::p lisp::&optional system::d) (system::v) (lisp::list 'system::putprop system::s system::v system::p))
  135. lisp::nth
  136. ((system::n system::l) (system::v) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr system::n system::l) system::v) system::v))
  137. lisp::char
  138. system::char-set
  139. lisp::schar
  140. system::schar-set
  141. lisp::bit
  142. lisp::sbit
  143. lisp::fill-pointer
  144. system::fill-pointer-set
  145. lisp::symbol-plist
  146. system::set-symbol-plist
  147. lisp::gethash
  148. ((system::k system::h lisp::&optional system::d) (system::v) (lisp::list 'system::hash-set system::k system::h system::v))
  149. lisp::documentation
  150. ((system::s system::d) (system::v) (lisp::list 'lisp::case system::d (lisp::list 'lisp::variable (lisp::list 'system::putprop system::s system::v ''system::variable-documentation)) (lisp::list 'lisp::function (lisp::list 'system::putprop system::s system::v ''system::function-documentation)) (lisp::list 'lisp::structure (lisp::list 'system::putprop system::s system::v ''system::structure-documentation)) (lisp::list 'lisp::type (lisp::list 'system::putprop system::s system::v ''system::type-documentation)) (lisp::list 'lisp::setf (lisp::list 'system::putprop system::s system::v ''system::setf-documentation)) (lisp::list lisp::t (lisp::list 'lisp::error "~S is an illegal documentation type." system::d))))
  151. lisp::getf
  152. lisp::let
  153. system::put-f
  154. lisp::subseq
  155. ((system::sequence1 system::start1 lisp::&optional system::end1) (system::sequence2) (lisp::list 'lisp::replace system::sequence1 system::sequence2 :start1 system::start1 :end1 system::end1))
  156. lisp::the
  157. lisp::apply
  158. "Can't get the setf-method of ~S."
  159. 2
  160. lisp::append
  161. lisp::list
  162. "Can't get the setf-method of ~S."
  163. lisp::char-bit
  164. lisp::set-char-bit
  165. lisp::ldb
  166. lisp::dpb
  167. lisp::mask-field
  168. lisp::deposit-field
  169. system::structure-access
  170. lisp::vector
  171. system::structure-set
  172. lisp::let*
  173. "~S is an illegal SETF form."
  174. "~S is an illegal SETF form."
  175. "~S is an illegal PSETF form."
  176. (lisp::nil)
  177. "~S is an illegal PSETF form."
  178. system::access-form
  179. lisp::&optional
  180. lisp::&rest
  181. lisp::list*
  182. lisp::defmacro
  183. system::reference
  184. lisp::when
  185. (lisp::symbolp system::reference)
  186. lisp::return-from
  187. ((system::access-form system::reference))
  188. 'lisp::setq
  189. lisp::multiple-value-bind
  190. (system::vars system::vals system::stores system::store-form system::access-form)
  191. (lisp::get-setf-method system::reference)
  192. 'lisp::let*
  193. lisp::mapcar
  194. #'lisp::list
  195. (lisp::append system::vars system::stores)
  196. system::vals
  197. system::store-form
  198. system::flag
  199. system::rem-f
  200. lisp::+
  201. lisp::-
  202. lisp::cons
  203. lisp::adjoin
  204. lisp::prog1
  205. lisp::defsetf
  206. lisp::define-setf-method
  207. lisp::get-setf-method
  208. lisp::get-setf-method-multiple-value
  209. system::setf-expand-1
  210. system::setf-expand
  211. lisp::setf
  212. lisp::psetf
  213. lisp::shiftf
  214. lisp::rotatef
  215. lisp::define-modify-macro
  216. lisp::remf
  217. lisp::incf
  218. lisp::decf
  219. lisp::push
  220. lisp::pushnew
  221. lisp::pop
  222. system::find-documentation
  223. )
  224.